home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 23
/
Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso
/
Aminet
/
biz
/
dbase
/
Black_Book.lha
/
Install Black Book
< prev
next >
Wrap
Text File
|
1996-10-15
|
2KB
|
66 lines
(complete 0)
;Check kickver
(if (< (/ (getversion) 65536) 37)
(abort ("\nYou must have kickstart 2.04+ to run Black Book")
)
)
(set sdir (pathonly @icon))
(set @default-dest "SYS:Tools")
(set #install-msg
(cat "IMPORTANT NOTE\n"
"The following items are required to run Black Book\n\n"
"Reqtools © 1991-1994 Nico Françis\n"
" 1995-1996 Magnus Holmgren\n\n"
"All rights Reserved\n"
"\nPlease refer to the Amigaguide© file for futher info."
))
(set ID_dest (askdir
(prompt "Where should Black Book be installed?")
(help "Select a drawer where you want to install Black Book")
(default @default-dest)
)
)
(set ans (askbool
(
(prompt "\nDo you want to make a new drawer called Black_Book? "
"(Please note that the documentation is the only other "
"file, and it may be placed elsewhere if you wish)")
(help "")
)
)
)
(if (= 1 ans)
(
(makedir (tackon ID_dest "Black_Book") (infos))
(set ID_dest (tackon ID_dest "Black_Book"))
)
)
(set @default-dest ID_dest)
(working ("Copying Black Book"))
(copyfiles
(source (tackon sdir "Black_Book"))
(dest ID_dest)
(help @copyfiles-help)
(infos)
)
(complete 70)
(set Doc_dest (askdir
(prompt "Where should Black Book's documentation be installed?")
(help "Select a drawer where you want to install the docs")
(default @default-dest)
)
)
(copyfiles
(source (tackon sdir "Black_Book.guide"))
(dest Doc_dest)
(help @copyfiles-help)
(infos)
)
(complete 100)
(message #install-msg)
(exit)